WITH Ada.Text_IO;
WITH Matiere.io;

PACKAGE BODY Matiere IS

   FUNCTION CreerMatiere return Matiere IS
   X : Matiere;
   BEGIN
      io.Get(X);
      return X;
   END CreerMatiere;


END Matiere;
